home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
cmln1285.arc
/
ZBASIC1.LTG
< prev
next >
Wrap
Text File
|
1986-02-27
|
256b
|
11 lines
zbasic.rvw Listing 1
ì
1░ DEFIN╘ A-Z
2░ PRIN╘ TIME$
3░ A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
4░ FO╥ I=▒ T╧ 10000
5░ MID$(A$,4,1)="X"
6░ B$=LEFT$(A$,3):B$=B$+"C":C$=MID$(A$,5):A$=B$+C$
7░ NEX╘ I
8░ PRIN╘ TIME$